program pacchase;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, menuunit, Gameunit, gameobjects;

{$R *.res}

begin
  RequireDerivedFormResource := True;
  Application.Initialize;
  Gameform.Purplem:=Tghost.Create(9,6,0,1,False);
      Gameform.redm:=Tghost.Create(10,5,0,1,False);
      Gameform.greenm:=Tghost.Create(11,6,0,1,False);
      Gameform.pinkm:=Tghost.Create(10,7,0,1,False);
  Application.CreateForm(TMenuform, Menuform);
  Application.CreateForm(TGameform, Gameform);
  Application.Run;


end.

